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FUNCIONES (III) 


Funciones 
definidas 
por el usuario 


ASTA ahora hemos 
visto las funciones dis- 
ponibles en los orde- 
nadores que vienen 
ya definidas en me- 
moria. Sin embargo, 
nosotros podemos 
definir nuevas funcio- 
nes a nuestra conveniencia, de modo 
que el BASIC que ya conocemos cobra 
una gran potencia. 

Para abordar el estudio de estas fun- 
ciones vamos a plantear dos etapas: 


— Definición de funciones. 
— Utilización de funciones definidas. 


Definición de funciones 


Definir una función significa especificar 
en el programa dónde deseamos utilizar 
dicha función, cuál es su objetivo o, más 
concretamente, cómo se efectúa la fun- 
ción en cuestión. Por tanto, debemos 
«enseñar» al ordenador a realizarla. Exis- 
te una instrucción BASIC cuyo objetivo es 
precisamente éste, la definición de fun- 
ciones. Su formato general es el siguien- 
te: 


DEF FN <nombre> (<argumento 1>, 
<argumento 2>,...) = <expresión de de- 
finición> 

Todos los ordenadores disponen de la 
instrucción DEF FN, aunque, como vere- 
mos después, la versatilidad de la misma 
varía mucho de unos a otros. 

Analicemos detenidamente las distin- 
tas partes que componen esta instruc- 
ción: 


La palabra DEF indica que a continua- 
ción se va a definir una función, por tan- 
to, tras DEF se sitúa el nombre de la fun- 
ción, que se compone, a su vez, de dos 
partes: 


— la palabra FN, abreviatura de fun- 
ción. 

— El nombre específico, que diferen- 
cia unas funciones de otras. 


Por tanto, el nombre completo de la 
función será siempre del tipo: 


FN<nombre > 


Las reglas para la formación del nom- 
bre específico varían de unas versiones 
de BASIC a otras. Por lo general, siguen las 
mismas que los nombres de variables, 
aunque el SPECTRUM sólo admite una le- 
tra. 

Por otra parte, algunos ordenadores 
permiten definir funciones numéricas y 
altanuméricas, identificando estas últi- 
mas del mismo modo que las variables 
altanuméricas, es decir, añadiendo el 
signo $ al final del nombre. 

Asimismo, en algunos casos se pueden 
diferenciar funciones numéricas de los 
diversos tipos ya conocidos: enteras, rea- 
les, simple precisión, etc., añadiendo al 
final del nombre el signo correspondien- 
te. 

De modo que, por ejemplo, FNE sería un 
nombre de función numérica definida, 
mientras que FNJ$ sería qué nombre vá- 
lido de función alfanumérica, en los orde- 
nadores que permitan definir este tipo de 
funciones. 

A continuación del nombre de la fun- 
ción definida se escriben entre parénte- 
sis el o los argumentos que vaya a utilizar. 

El número y tipo de argumentos que se 
pueden especificar varía mucho de unos 
ordenadores a otros. Algunos sólo admi- 
ten un único argumento numérico, mien- 


tras que otros podemos utilizar varios ar- 
gumentos de tipo numérico o alfanumé- 
rico o ambos simultáneamente. 

Por último, tras el signo igual (=) debe- 
mos escribir una expresión en la que de- 
tallemos las operaciones y funciones que 
deberá realizar el ordenador con los ar- 
gumentos especificados para obtener el 
resultado deseado. 

Veamos algunos ejemplos: 


DEF FNR(N) = N(1/3) 


Hemos definido una función numérica 
de nombre FNR, que utiliza un único argu- 
mento numérico, representado por N. El 
objetivo de la función es realizar la raíz 
cúbica de un número dado, por tanto, en 
la expresión de definición se eleva el ar- 
gumento a 1/3, que es el método para 
expresar una raíz cúbica en forma de po- 
tencia. 


DEF ENC(PS) = INT ((40-LEN(PS))/2) 


Esta nueva función es de naturaleza nu- 
mérica y su nombre es FNC. Acepta un 
solo argumento de tipo alfanumérico re- 
presentado por P$. Su objetivo es calcu- 
lar el número de espacios que debemos 
imprimir delante de la cadena especifi- 
cada en el argumento, de modo que di- 
cha cadena aparezca centrada en la 
pantalla. La función se ha definido para 
una pantalla de 40 columnas, por tanto, 
si nuestra pantalla es de distinto tamaño 
habrá que sustituir el 40 por el número de 
columnas correspondientes. 


REM x* RAICES CUBICAS 
CLS 
DEF FNRIN>=N" (1/3) 


CLS 


LET C=FNR(A)> 
100 PRINT "NUMERO 
110 PRINT :¿PRINT 
120 PRINT "RAIZ CUBICA 


:",A 


Es importante observar que el argu- 
mento que indicamos al utilizar la fun- 


REM 33000 6 6 6 E E E 


* 


REM 16060 dd 16 06 16d 16 dE dd 6 6 HH E 


INPUT "DIME UN NUMERO "¡A 
IF AXO THEN PRINT "POSITIVO, POR FAVOR" ¿GOTO 40 


358 


DEF FNLS (A$,BS,P) = LEFTS(AS,P-1) + 
+B5+RIGHTS(AS,LENCAS)-(P+1) 


Por último, esta función, mucho más 
complicada y no definible en todos los 
ordenadores, es de tipo alfanumérico y 
su nombre es FNLS. Utiliza tres argumen:- 
tos: dos alftanuméricos y uno numérico. El 
objetivo es insertar la cadena represen- 
tada por el argumento B$ dentro de la 
cadena representada por AS en la posi- 
ción especificada en P. 

Para ello fragmentamos la cadena A$ 
por la izquierda hasta la posición P-1. A 
continuación le sumamos la cadena BS 
y, finalmente, añadimos el resto de la ca- 
dena AS fragmentado por la derecha. 

Hasta aquí hemos visto la definición de 
funciones, veamos ahora cómo usarlas. 


E Utilización de funciones 
definidas 


Para utilizar una función definida no te- 
nemos más que escribir el nombre que le 
hayamos asignado con los argumentos 
concretos sobre los que deseemos apli- 
carla. 

Veamos un ejemplo. El programa 1 uti- 
liza la función que definimos anterior- 
mente para calcular la raíz cúbica de 
cualquier número introducido por el te- 
clado. 


ción no tiene por qué coincidir con el 
usado en la definición, ya que este ulti- 


. BASIC 


mo es un argumento genérico, que tiene 
como misión indicar la naturaleza nume- 
rica o altanumérica. 


40 CLS 
70 CLS 


20 LET N=FNC(T$)> 


Recordemos que este programa sólo 
es valido para aquellos ordenadores que 


admitan funciones definidas con argu- 


mentos alfanuméricos. 


40 CLS 


70 PRINT F$ 
80 PRINT :PRINT :¿PRINT 


100 LET N$=FNL$(F$,U$, 4) 
110 CLS 
120 PRINT N$ 


En este caso concreto, la función se en- 
carga de insertar el verbo que deseemos 
dentro de la frase asignada a la variable 
FS. 

Este programa sólo será válido para los 
ordenadores en los que se puedan defi- 
nir funciones alfanuméricas con argu- 
mentos alfanuméricos. 


REM RR 
20 REM * CENTRADO DE TEXTOS  *x 
30 REM Ie 6 M6 3 ME 


50 DEF FNC(P$)>)=INTCC(40-LENCP$))/2) 
/ 60 INPUT "TECLEA EL TEXTO A CENTRAR ";T$ 


80 IF LENCT$>)>38 THEN PRINT "ESE TEXTO ES 
DEMASIADO LARGO PARA CENTRARLO” :GOTO 60 


100 PRINT TAB(N+1>;T38 


REM 30666 06 6 6 dE HE E E II IE E E E E 
20 REM * INSERCION DE CADENAS  * 
30 REM 43 eat 6 a 6 IE IE E E E 


50 DEF FNL$(A$,B$,P>=LEFTS(AS$,P-1)+B$+RIGHT$(AS, LENCAS)-P+1) 
$0 LET F$="Y0 TODOS LOS DIAS" 


?0 INPUT "ESCRIBE UN VERBO QUE COMPLETE ESTA FRASE "¿U$s 


Veamos otros ejemplos. El programa 2 
utiliza el segundo ejemplo de función de- 
finida para centrar cualquier texto en la 
pantalla. 


El programa 3 aplica la función que de- 
finimos anteriormente para insertar una 
cadena dentro de otra. 


Por último, hay que matizar que la ins- 
trucción DEF FN sólo sirve para indicar lo 
que hará la función al ser utilizada, pero 
el ordenador no realizará cálculo alguno 
al leer DEF FN. 

Finalmente, en la tabla de la figura 1 se 
resumen las características de las funcio- 
nes definidas para distintos ordenadores. 


O Interrupciones 


NA interrupción es el 
proceso que realiza 
la CPU cuando recibe 
una petición urgente 
de realizar una tarea 
específica. 

Cuando la CPU reci- 
be una petición de 
este tipo, interumpe provisionalmente la 
tarea que está realizando y pasa a eje- 
cutar la tarea requerida. Una vez termi- 
nada, reanuda la tarea interrumpida en 
la misma situación en que la abandonó. 

Los mecanismos de interrupciones sur- 
gieron para aumentar la eficacia de la 
CPU en el manejo de los dispositivos pe- 
riféricos (teclado, discos, impresoras, 
etcétera) y están totalmente implemen- 
tados por hardware. 


MW Necesidad 
de las interrupciones 


Supongamos por un momento que, uti- 
lizando un sistema que no dispone de un 
mecanismo de interrupciones, queremos 
escribir un programa que use el teclado, 
la pantalla y un fichero en diskette. 
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El programa debe funcionar de forma 
que cada vez que se pulse una tecla, 
debe guardarse el carácter en un área 
de memoria y representarlo en la posi- 
ción adecuada de la pantalla. 


Una rutina que realice esta tarea po- 
dra hacerse con un bucle compuesto 
por las siguientes operaciones: 


1. Esperar una acción sobre el tecla- 
do. 


2. Leer el carácter pulsado. 


3. Salir del bucle si se ha leído el ca- 
racter de terminacion. 


4. Escribir dicho carácter sobre la 
pantalla. 


5. Guardar el carácter en memoria. 
6. Volver al punto 1. 


La rutina se podría escribir de esta for- 
ma. Pero, ¿qué pasaría cuando se deja 
de teclear? 


Evidentemente, la CPU quedaría espe- 
rando en la instrucción 1 del bucle hasta 
que se volviera a actuar sobre el tecla- 
do. Durante todo ese tiempo, la CPU es- 
taría parada. 


Veamos ahora la situación que se pro- 
duce cuando el programa tiene que es- 
cribir en el diskette. La rutina básica de 
escritura debe hacer lo siguiente. 


1. Mandar posicionar la cabeza de 
escritura sobre la pista adecuada. 


2. Esperar a que la cabeza esté posi- 
cionada. 


3. Esperar a que el origen de la pista 
pase por la cabeza de escritura. 


4. Transferir los datos desde la memo- 
ria al diskette. 


Las esperas de los puntos 2 y 3 pueden 
conseguirse con bucles en los que se 
esté continuamente comprobando 
cuándo se alcanza el objetivo deseado, 
es decir, el posicionamiento de la cabe- 
za O el paso del origen de la pista. 


Si usamos rutinas como las descritas, 
¿qué pasaría si un programa quisiera si- 
multanear tareas de lectura de teclado 
con escritura en diskette? 


En ese caso, mientras se está realizan- 
do el bucle de espera del teclado no se 
puede realizar el bucle de espera del 
diskette y viceversa, por lo cual, el pro- 
grama debería realizar primero una ta- 
rea y después la otra. A menos que se es- 
cribiera una rutina específica que en el 
mismo bucle atendiera al teclado y al 
diskette. 


La misma situación se presentaría si en 
otro programa se quisiera leer del disket- 
te para escribir en impresora o en cual- 
quier otra combinación de periféricos. 


Llegamos a la conclusión de que en un 
sistema sin mecanismo de interrupcio- 
nes, una de dos: 


— O se pierde eficacia en el manejo 
de perifericos. 


— Ohay que programar las rutinas bá- 
sicas para cada situación concreta. 


Esta última alternativa puede servir 
para programas aislados, pero no para 
escribir las rutinas básicas de manejo de 
periféricos propias de un sistema opera- 
tivo, y, por supuesto, no permite ni el más 
elemental grado de multiprogramación. 


¿Cómo puede resolver este problema 
un sistema de interrupciones? Una CPU 
con interrupciones puede programarse 
de forma que los tiempos de espera de 
unas tareas puedan emplearse para rea- 
lizar otras, de forma que al producirse el 
suceso que hace terminar la espera (la 
pulsación de un nuevo carácter o la lle- 
gada de la cabeza de escritura a la pis- 
ta deseada), se ejecute automáticamen- 
te el código correspondiente. 


'O Las interrupciones del 8088 


La familia de microprocesadores 8088 
tiene un sistema de interrupciones simple 
y versátil que le permite manejar hasta 
256 interrupciones. Las peticiones de in- 
terrupción pueden ser: 


Externas. Solicitadas por algunos de los 
dispositivos externos a la CPU. 


Internas. Generadas por la propia ac- 
tividad de la CPU. 


Hay dos tipos diferentes de interrupcio- 
nes externas, cuyas peticiones llegan a 
la CPU por dos hilos independientes de- 
nominados: 


INTR. Abreviatura de «Interrupt Re- 
quest», que significa petición de interrup- 
ción. 


NMI. Abreviatura de «non maskable in- 
terrupt» que significa: Interrupción que no 
puede esperar. 


Los sucesos que pueden ocasionar in- 
terrupciones NMI, son típicamente suce- 
sos «catastróficos», como alteración de 
la tensión de alimentación, error de me- 
moria o error de paridad en el bus. 


Por el contrario, por el hilo INTR llegan 
a la CPU las interrupciones que, deriva- 
das de la actividad normal, se originan 
en los periféricos. 


Para saber en cada caso concreto 
cuál ha sido el periférico que ha provo- 
cado la interrupción, el 8088 utiliza los 
servicios de un circuito auxiliar denomi- 
nado PIC (Intel 8259A, Programmable In- 
terrupt Controller). 
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El PIC actúa a modo de «secretario de 
interrupciones» del 8088 y tiene enco- 
mendadas las siguientes misiones: 


— Aceptar del 8088 y memorizar las 
prioridades que debe asignar a cada 
una de las interrupciones que controla. 


— Recibir fisicamente las peticiones 
de interrupción de los distintos periféri- 
cos a través de hilos diferentes. 


— Avisar al 8088, a través del hilo INTR, 
cuando se produce alguna petición de 
interrupcion. 


— Comunicar al 8088, cuando éste se 
lo pide, el código (un byte) que permite 
distinguir las diferentes interrupciones. 


— En caso de acumularse varias peli- 
ciones, ir avisando sucesivamente al 
8088 de las interrupciones pendientes, 
empezando por las más prioritarias. 


Además de todo lo dicho, el 8088 dis- 
pone de un flag denominado IF (interrupt 
enable flag) con el cual se puede anular 
el mecanismo de interrupciones externas 
durante intervalos en los que se realizan 
tareas que no se deben interrumpir. 


Las interrupciones internas utilizan el 
mismo mecanismo diseñado para aten- 
der a los periféricos para interrumpir el 
código que se está ejecutando en un 
momento dado, pasar a ejecutar otro y 
volver al punto en que se interrumpió. 


Se provocan interrupciones internas en 
los siguientes casos: 


— Por instrucciones INT (interrupt). 


— Por la instrucción INTO (interrupt on 
overflow). 


— Por las instrucciones DIV (divide) o 
IDIV (integer divide) si el cociente resul- 
tante no cabe en el registro al que va 
destinado. 


— Al terminar de ejecutarse cada ins- 
trucción, si está activo el flag TF (trap 
flag). Esta situación la provocan los pro- 
gramas de puesta a punto, que como el 
DEBUG (citado con anterioridad), son ca- 
paces de controlar la ejecución de otro 


programa en la modalidad «paso a 
paso». 


El vector de interrupciones 


Hemos hablado hasta ahora de los dis- 
tintos tipos de interrupciones, pero, 
¿cómo conoce la CPU la dirección del 
código que debe atender a cada una de 
las 256 posibles interrupciones? 


Un sencillo convenio resuelve este pro- 
blema. La CPU se reserva en el origen de 
la memoria una tabla de 256 entradas, 
en las cuales supone que se han coloca- 
do los apuntadores a los códigos que 
atienden a las 256 interrupciones posi- 
bles. 


Cada apuntador, que tiene una longi- 
tud de 4 bytes, se compone del segmen- 
to de código y un desplazamiento y pue- 
de, por tanto, apuntar a cualquier zona 
de memoria de la máquina. Por lo cual la 
tabla tiene una longitud de 1 Kbyte (4 x 
256 = 1.024 bytes). 


En el funcionamiento normal, el sistema 
operativo se encarga de situar en memo- 
ria los códigos que atienden a las in- 
terrupciones y de definir en la posición 
adecuada de esta tabla el apuntador 
que direcciona dicho código. 


En la siguiente figura se da una lista de 
las interrupciones utilizadas, las reserva- 
das y las que quedan libres. La lista está 
compuesta por las siguientes cinco co- 
lumnas: 


— La primera columna, titulada «Num», 
indica el número de la interrupción ex- 
presado en decimal. 


— La segunda columna, titulada «Di- 
rec», contiene la dirección del apunta- 
dor asociado a esa interrupción. 


— La tercera columna, titulada «Cau- 
sa», indica cuál puede ser la causa de 
que se desencadene la interrupción. 


— La cuarta columna, encabezada 
por la palabra «Nivel», indica qué com- 
ponente de la máquina es el que ha es- 
tablecido esa interrupción. 


— En la última columna se describe 
brevemente de qué trata la interrupción. 


DIV, IDIV 
Flag TF 
Hardware 
INT 3 
INTO 


INT 5 


Reloj 
Teclado 


RS232 


Diskette 
Impresora 


INT 
INT 
INT 


Descripción 


Error en la división. 

Interrupción paso a paso. 

NMI. (Errores no recuperables). 

Punto de control en puesta a punto. 
Error en operación aritmética (Overflow). 


Copia de la pantalla a impresora. 
Reservada. 
Reservada. 


Reloj interno 18,2 pulsos por segundo. 
Interrupción del hardware del teclado. 
Reservada. 

Reservada. 

Interrupción del hardware de comunicaciones. 
Reservada. 

Interrupción del hardware de disco/diskette. 
Interrupción del hardware de la impresora. 


Funciones de utilización de pantallas. 
Comprobación del equipo instalado. 
Determinación de la memoria instalada. 
Funciones de utilización de discos/diskettes. 
Funciones de utilización de comunicaciones. 
Funciones de utilización de cassettes. 
Funciones de utilización del teclado. 
Funciones de utilización de la impresora. 
Funciones de utilización de cassette en BASIC. 
Arranque del programa inicial. (Boostrap). 
Fecha y hora. 


Acción de usuario en caso de Ctrl-Break. 
Acción de usuario en los pulsos de reloj. 


Inicialización de parámetros de pantalla. 
Inicialización de parámetros de diskette. 
Tabla de caracteres en modo gráfico. 
Terminación de programa. 

Funciones DOS (“calls”). 

Dirección de terminación de un programa. 
Acción a realizar por pulsar Ctrl-Break. 
Error crítico. 

Lectura absoluta del disco o diskette. 
Escritura absoluta en el disco o diskette. 
Terminación de un programa residente. 
Reservadas para DOS. 

Reservadas para DOS. 

No usadas. 

No usadas. 

Reservadas para BASIC. 

Reservadas para BASIC. 


No usadas. 


No usadas. 
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| Programa: 
PAC-MAN 


para IBM il 


AMTONTIO ... 34990 


L PAC-MAN es uno de 
los juegos más famo- 
sos que existen para 
ordenador. Uno de 


E 
E 
1 
y 
S 
R 
D 
y 
H 


los más famosos y de 2% TODOS LOS PUNTOS QUE PUEDAS 
los más sencillos de |! Q USA ESTAS TECLAS 
utilizar. Todo el juego | PARA MOVER EL QUESITO. 
consiste en comerse | PR A 


el mayor número de puntos posibles, sin 
que los fantasmas que habitan el laberin- 
to nos coman a nosotros. 
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JE Gg sil ¡Eto 


iS lus 


TU MISMO 
TU ENEMIGO 


lA Pantalla de presentación. La pantalla de juego 


La única diferencia de este programa mernos los fantasmas. A cambio, cada 
con el original es que cuando nos come- vez que nos comamos un asterisco, po- 
mos los puntos gordos, no podemos co- dremos movernos de prisa. 


MUY BIEN .... 
TERMINASTE LA PANTALLA 


1000 REM ooo Rd a ak 


1010 REM x xk 

1020 REM, * PAC - MEN k 
1030 REM * k 

1040 REM dsSRaSSS OSOS OO OSOS OjSOjOOKkk 

1050 REM 

1060 REM oadlaadOaldla aldo la lalola lalo lOlalolo lok 

1070 REM x k 

1080 REM x AUTOR k 

1090 REM *x —-»--- =======-=--- * 

1100 REM x k 

1110 REM * Fco. Morales Guerrero * 

1120 REM x* k 

1130 REM sdSSSIR SS SIS OSOS OlORAROJAKOK 

1140 REM 

1150 REM daolalOaISSIOlS OSOS ISS OOOO HOOK OK 

1160 REM x*x k 

1170 REM * (c) Ed. Siglo Cultural * 

1180 REM * (c) 1987. xk 

1190 REM x*x k 

1200 REM ddRsdSS OSOS SOS jSlO lalalala lolo kk 

1210 REM 

1220 REM ddsidMR SMS SSA ISSO OSOS SOS OOOO lJKOK 
1230 REM * INICIALIZACION DEL PROGRAMA x*x 
1240 REM dsdadSS SS OSOS SOS SO lSOlSJolOlOlOJOJOJOJOK 4 
1250 REM 

1260 DIM A1%(10),A2%(10),A3%X(10),A4%(10),BX(10),CX(10),D%(10),N(9),N$(10),P(10), 
S(25, 41), X%(409),YX(435),M$(2,3),1(2,8) 
1270 M$(1,0)=".":M$(1,1)="x*":M$(1,3)=" ":M$(2,0)=".":M$(2,1)="*":M$(2,3)=" " 
1280 PA=1 

1290 SCREEN 1:WIDTH 40:KEY OFF 

1300 COLOR ,,,,3 

1310 CLS 

1320 PRINT TAB(15);"COME - COCOS" 


1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1419 
1420 


PRINTER 


COLOR ,,,,1 

LOCATE 10,14:PRINT “CARGANDO DATAS” 

COLOR ,,,,2 

LOCATE 12,12:PRINT "ESPERA UN MOMENTO. ” 

REM 
INES 
REM * LECTURA DE LAS FIGURAS DE LOS PERSONAJES * 
REM aaSlSlSS SSA lSlSlOS SS SISIOO SS lll OIOJOK 
REM 
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1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 


GET (0,0)-(7,7),A1% 
GET (0,0)-(7,7),A2% 
GET (0,0)=(7,7),A3% 
GET (0,0)-(7,7),A4% 
GET (0,0)-(7,7),B% 
GET (0,0)-(7,7),CX 
GET (0,0)-(7,7),DX 
GET (105,75)-(167,125),XX 
RESTORE 5920 
FOR I=0 TO 10 

READ A1X(1) 

READ BX(I) 
NEXT 1 
FOR I=0 TO 10 

READ CX(1) 

READ DX(1) 
NEXT 1 
FOR I=0 TO 409 

READ X%(1) 
NEXT 1 
FOR I=0 TO 435 

READ Y%(1) 
NEXT 1 
FOR I=0 TO 10 

READ A2%(1) 

READ A3%(1) 

READ A4%(1I) 
NEXT 1 
REM 
REM ASMSSSSOOOdO aaa lalala laala aaa jajojodok ok 
REM * LECTURA DE LOS CARACTERES * 
REM AMSSSS OSO OSOS laiajajoiajalalalalalajalakok 
REM 
FOR 1=0 TO Y 

READ N(I) 
NEXT 1 
REM 
REM AMOO OSOS aia oO Ola jolololajolaajok 
REM * LECTURA DE LOS RECORDS x*x 
REM AMSSSSSSSSO OOOO aaa aaa ololokok 
REM 
FOR I=1 TO 10 

READ N$(1),P(I) 
NEXT 1 
REM 
REM AOGIOOOO OOOO oda jolalololajok 
REM * LECTURA DE LAS DIRECCIONES x 
REM AMS SSSO Saad aa lalalala ka kalololokok 
REM 
FOR I=1 TO 2 

FOR J=1 TO 8 

READ 1(1,J) 

NEXT J 
NEXT 1 
REM 
REM AMMNNSO OSOS lolo lo lololojojolojok 
REM * PROGRAMA PRINCIPAL x* 
IAN EEES 
REM 
CLS 
GOSUB 5380: REM PRESENTACION 
GOSUB 4520:REM TABLA DE RECORDS 
GOSUB 5130:REM INSTRUCCIONES 
GOSUB 5280: REM PULSA UNA TECLA 
GOSUB 4180: REM DIBUJA LA PANTALLA 
SOLO E 
GOSUB 2150 :REM LEE EL TECLADO 
GOSUB 2300 :REM MUEVE EL COME-COME 
GOSUB 2660 :REM ENEMIGO NUMERO 1 


2120 GOSUB 2890 :REM ENEMIGO NUMERO 2 

2130 IF PT<=0 THEN GOSUB 3780:PA=PA+1:GOTO 2070 
2140 GOTO 2090 

2150 REM 

2160 REM AdSSSSSSISSlSlSIOISISISlOIOIOJOIOIOLOK 

2170 REM * CONTROL DEL TECLADO x* 

2180 REM AdSSSSO SISSI jSSOOOOOlOISIOIOKOK 

2190 REM 

2200 I$=INKEYS: IF I$="" THEN 1$=Z$ 

2210 Z$=18 

2220 II=INSTR("OoPpQaAa”, 1$) 

2230 IF II=0 THEN RETURN 

2240 X1=X0:Y1=YO 

2250 XO=X0+1(1,11)+1(1, I1)*(S(YO, XO+I(1,11))=0) 
2260 YO=Y0+1(2,11)+1(2, I11)*(S(YO+1(2,11),X0)=0) 
2270 IF XO=41 THEN XO=1 

2280 IF XO=0 THEN LET X0=40 

2290 RETURN 

2300 REM 

2310 REM AMSSSSO SO lOlOia ajaja lalalala lajolololak 

2320 REM * MOVIMIENTO DEL COME-COME x* 

2330 REM AdMOSOONOOdOO Olalla aaa aaa lao akoiok 

-2340 REM 

2350 IF BB>0 THEN BB=BB+1: IF BB=80-(10*PA) THEN BB=0 
2360 IF X1=X0 AND Y1=YO THEN Z$="Z":RETURN 

2370 IF S(YO,XO)=-1 THEN PT=PT-1:S(YO,X0)=2:PU=PU+10:LOCATE 2,13:PRINT USING 
$us"; PU 


"44 


2380 IF S(YO,X0O)=1 THEN PT=PT-1:S(YO, X0)=2:PU=PU+50:LOCATE 2,13:PRINT USING "44% 


$84" ;PU:LET BB=1 

2390 IF PU>=HI THEN LOCATE 2,32:PRINT USING "+H4H$$"; PO: HI=PU 
2400 LOCATE Y1,X1:PRINT " ” 

2410 S(Y1,X1)=2 

2420 IF SW=1 THEN PUT(8x(X0-1),8x(YO-1)),B%,PSET:SW=0:S(YO, X0)=99: RETURN 
2430 ON II GOSUB 2460, 2460, 2510, 2510, 2560, 2560, 2610, 2610 
2440 SW=1:S(YO, X0)=99 

2450 RETURN 

2460 REM 

2470 REM *xx* MOVIMIENTO A LA IZQUIERDA *xx 
2480 REM 

2490 PUT(8x(XO-1),8x*(YO-1)),A2%, PSET 
2500 RETURN 

2510 REM 

2520 REM *** MOVIMIENTO A LA DERECHA »*xxk 
2530 REM 

2540 PUT(8x(XO-1),8x(YO-1)),A1%, PSET 
2550 RETURN 

2560 REM 

2570 REM *x** MOVIMIENTO A ARRIBA *xx 
2580 REM 

2590 PUT(8*(XO-1),8x*(YO-1)),A4%, PSET 
2600 RETURN 

2610 REM 

2620 REM *x*xx* MOVIMIENTO A ABAJO *xx 

2630 REM 

2640 PUT(8x(X0-1),8x*(YO-1)),A3%,PSET 
2650 RETURN 

2660 REM 

2870 REM sdSSS ASAS 
2680 REM * MOVIMIENTO DEL FANTASMA-1 * 
2890 REM add SSOdSafaalalafofalalalalalojolajajojok 
2700 REM 

2710 REM *x** CALCULO DE LA DIRECCION xxx 
2720 REM 

2730 SO=0: MM=MM+1 

2740 IF BB>0 AND SD1=1 THEN SD1=0: RETURN 
2750 SD1=1 

2760 X3=X2:Y3-Y2 

2770 SX=SGN(X1-X2) 

2780 SY=SGN(Y1-Y2>) 
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2790 X2=X2+S5X+SX*(S(Y2,X2+SX)=0) 

2800 Y2=Y2+SY+SYx(S(Y2+SY, X2)=0) 

2810 REM 

2820 REM *x*xx* MOVIMIENTO »xoxk 

2830 REM 

2840 LOCATE Y3,X3:PRINT M$(1,M1+1) 

2850 M1=S(Y2,X2) 

2860 IF M1=99 THEN GOTO 3140 

2870 IF SEl=1 THEN SE1=0:PUT(8*(X2-1),8x*x(Y2-1)),DX, PSET: RETURN 
2880 SE1=1:PUT(8*(X2-1),8*(Y2-1)),CX, PSET: RETURN 
2890 REM 

2900 REM AMOO SS SSS OIE] lOlOlOlEOlajajolololOlajak 

2910 REM * MOVIMIENTO DEL FANTASMA-2 * 

2920 REM aAdsMSSSSlSlSO OIE lEalElE Sl lOOlOElO lala jOlOlOlO KK 

2930 REM / 

2940 REM *x*x* CALCULO DE LA DIRECCION *xkx* 

2950 REM 

2960 SO=0 

2970 IF BB>0 AND SD2=1 THEN SD2=0: RETURN 

2980 SD2=1 

2990 IF X3=X4 AND Y3=Y4 THEN MM=9 

3000 IF MM<15 THEN PUT(8*(X4-1),8*x(Y4-1)),CX, PSET: RETURN 
3010 X5=X4:Y5=Y4 

3020 SX=SGN(X1-X4) 

3030 SY=SGN(Y1-Y4) 

3040 X4=X4+5X+SX*(S(Y4, X4+5X)=0) 

3050 Y4=Y4+SY+SYx(S(Y4+SY, X4)=0) 

3060 REM 

3070 REM *x*x* MOVIMIENTO *xx 

3080 REM 

3090 LOCATE Y5,X5:PRINT M$(2,M2+1) 

3100 M2=S(Y4,X4) 

3110 IF M2=99 THEN GOTO 3140 

3120 IF SE2=1 THEN SE2=0:PUT(8*(X4-1),8*(Y4-1)),DX, PSET: RETURN 
3130 SE2=1:PUT(8*(X4-1),8*(Y4-1)),CX, PSET: RETURN 
3140 REM 

3150 REM ASSaOOSSOdOSO aida ola lola iolokaiok 

3160 REM * PERDIDA DE UNA VIDA *x 

3170 REM AdSSSOOO SOS Ola OlOa lolo jajok 

3180 REM 

3190 LOCATE YO,XO:PRINT " ” 

3200 FOR I=1 TO 10 

3210 FOR J=1 TO 2 


3220 PUT(8x(X0-1),8x*(YO-1)),A1% 
3230 FOR K=1 TO 100 

3240 NEXT K 

3250 NEXT J 

3260 NEXT 1 


3270 PUT(8*(XO0-1),8*(YO-1)),A41% 

3280 FOR I=1 TO A1%(1) 

3290 A1%(1)=1I 

3300 PUT(8x(XO-1),8x*(YO-1)),A1%, XOR 
3310 FOR J=1 TO 100 

3320 NEXT J 

3330 NEXT I 

3340 LOCATE YO,XO:PRINT " " 

3350 LOCATE Y2,X2:PRINT " " 

3360 LOCATE Y4,X4:PRINT ' 

3370 LET NV=NV-1 

3380 IF NV=0 THEN GOTO 3490 

3390 YO=16:X0=20:Y1=Y0:X1=X0:Z$="Z":BB=0 
3400 X2=19:Y2=11:X3=X2:Y3=Y2:X4=21:Y4=11:X5=X4:Y5=Y4:M1=S(Y2,X2):M2=5(Y4, X4) 
3410 LOCATE 24,10:PRINT " 

3420 FOR I=1 TO NV-1 

3430 PUT(64+8x*xI,184),A1% 

3440 NEXT 1 

3450 PUT(8x(X0-1),8x*(YO-1)),A1% 

3460 GOSUB 3660 

3470 RETURN 


3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 


RETURN 
REM 
REM AMOO ao loloOlOlOkk 
REM * GAME OVER * 
REM Aaa oooO kokok 
REM 
FOR I=1 TO 5 
FOR J=1 TO 3 
COLOR... 3 
LOCATE 13,18:PRINT " GAME " 
LOCATE 14,18:PRINT " OVER " 
FOR K=1 TO 140:NEXT K 
NEXT J 
LOCATE 13,18:PRINT ” 
LOCATE 14,18:PRINT ” 
FOR K=1 TO 140:NEXT K 
NEXT 1 
GOTO 2040 
REM 
REM aalalOlO OOOO IOIOIOKOK 
REM * ESTAS LISTO x* 
REM doRaolSlSlO OOOO IOJOJOKK 
REM 
LOCATE 13,18:PRINT "(ESTAS" 
LOCATE 14,18:PRINT "LISTO?" 
FOR J=1 TO 1000 
NEXT J 
LOCATE 13,18:PRINT " 
LOCATE 14,18:PRINT " 
RETURN 
REM 
REM AMSSSSMOOOO aaa iaa aaa jaa lololololojolok 
REM * TERMINO DE UNA PANTALLA * 
REM AMOO lOjodak 
REM 
FOR I=1 TO 10 
COLOR 12 
FOR J=1 TO 100 
NEXT J 
COLOR O 
FOR J=1 TO 100 
NEXT J 
NEXT 1 
CLS 
COLOR ...,3 
PRINT "MUY BIEN ... 
PRINT 
PRINT TAB(10);"TERMINASTE LA PANTALLA" 
FOR I=4 TO 15 
CIRCLE(1x20,125),7,1 
PAINT(1x20,125),1 
NEXT 1 
FOR I=1 TO 51 
X%(1)=1 
PUT(0,100),X%, PSET 
NEXT 1 
PUT(0, 100), X% 
FOR I=0 TO 251 STEP 6 
PUT(1,100),X%, PSET 
FOR J=1 TO 40:NEXT J 
PUT(1+3, 100), Y%, PSET 
FOR J=1 TO 40:NEXT J 
NEXT 1 
PRINT 
PRINT " HAS CONSEGUIDO ..." 
PRINT 
PRINT PA*600; "PUNTOS DE BONUS" 
PU=PU+PA*600 
GOSUB 5280 
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4170 RETURN 

4180 REM 

4190 REM aaaloO SiS OO OOOO Ola lOjOjOlOlOlOIOJOK 
4200 REM * DIBUJO DE LA PANTALLA *x 
4210 REM saldo SOS ISSN lS SIE ISSO lOIOJOJOJOK 
4220 REM 

4230 CLS 

4240 RESTORE 6770 

4250 FOR I=1 TO 25 

4260 IF I=25 THEN LOCATE 25,1 
4270 READ A$ 

4280 FOR J=1 TO LEN(A$) 


4290 S(1,J)=0 

4300 LET B$=MID$(A$.J,1) 

4310 IF B$="." OR B$="x*" THEN COLOR ,,,,2:PRINT B$;:S(1,J)=(B$=".")-(B$="x* 
"): COLOR ,,,,3:GOTO 4370 

4320 IF B$>"9" THEN GOTO 4340 

4330 PRINT CHR$(N(VAL(B$)));:GOTO 4370 
4340 IF B$="A" THEN PRINT CHR$(202); 
4350 IF B$="B" THEN PRINT CHR$(203); 
4360 IF B$="C" THEN PRINT CHR$(223); 
4370 NEXT J 

4380 NEXT 1 

4390 COLOR ,,,,3 


4400 LOCATE 2,4:PRINT USING "PUNTOS = H+$$8H44";PU 

4410 LOCATE 2,27:PRINT USING "HI = $HR88%48"; HI 

4420 LOCATE 24,2:PRINT "VIDAS = "; 

4430 LOCATE 24,28:PRINT USING "PANTALLA = +$"¡PA; 

4440 FOR I=1 TO NV-1 

4450 PUT(64+8xI,184),A1% 

4460 NEXT I 

4470 PUT(152,120),A1%,PSET 

4480 YO=16:X0=20:Y1=YO: X1=X0:Z$="Z":S(13,41)=2:5(13,0)=2:BB=0:MM=0 k 
4490 PT=287:X2=19:Y2=11:X3=X2:Y3=Y2:X4=21:Y4=11:X5=X4:Y5=Y4:M1=-1:M2=-1 
4500 GOSUB 3660 

4510 RETURN 

4520 REM 

4530 REM aIaIAS SS SSISIOIOIOIOJOKK 

4540 REM * TABLA DE RECORDS *x 

4550 REM AddMMSSIO OOOO OOOO OOOO KK 

4560 REM 

4570 CLS 

4580 COLOR ,,,,3 

4590 PRINT TAB(13);"TABLA DE RECORDS” 

ADO PERINATAL Sonoro noo” 

4610 COLOR ,,,,1 

4620 PRINT TAB(6);CHR$(201); STRING$(28,205);CHR$(187) 
4630 PRINT TAB(6);CHR$(186);SPC(28);CHR$(186) 

4640 PRINT TAB(6);CHR$(204);STRING$(28,205);CHR$(185) 
4650 FOR I=1 TO 9 

'4860 PRINT TAB(6);CHR$(186);SPC(28);CHR$(186) 

4670 NEXT I 

4680 PRINT TAB(6);CHR$(200); STRING$(28,205);CHR$(188) 
4690 NP=0 

4700 FOR I=1 TO 10 

4710 IF PU>P(I) THEN LET NP=1 

4720 NEXT I 

4730 IF NP=1 THEN LET P(10)=PU:N$(10)=CHR$(255) 

4740 FOR I=1 TO 10 

4750 FOR J=1 TO I 

4760 IF P(1)>P(J) THEN A$=N$(1):A=P(1):N$(1)=NS$(J):P(1)=P(J):N$(J)=AS:P(J) 


4770 NEXT J 

4780 NEXT I 

4790 IF NP=0 THEN GOTO 4840 

4600 FOR I=1 TO 10 

4810 IF N$(1)=CHR$(255) THEN LET N$(1)=3STRING$(15,"-"):LET NP=1 
4820 NEXT I 

4830 COLOR ,,,,2 


4840 LOCATE 4,7:PRINT N$(1);TAB(23);"... “¡USING “ARAAAR"P(1) 
4850 FOR I=2 TO 10 
4860 LOCATE 4+1,7 


4870 PRINT N$(1);TAB(23);"... "¡USING "*4448*8";P(I) 
4880 NEXT 1 

4890 IF NP=0 THEN GOTO 5080 

4900 COLOR ,,,,3 

4910 LOCATE 16,15:PRINT "FELICIDADES. " 

4920 PRINT 

4930 PRINT TAB(3);"TU PUNTUACION ESTA ENTRE LAS MEJORES" 
4940 PRINT 


4950 PRINT TAB(12);"ESCRIBE TU NOMBRE. " 

4960 N$(NP)="":X=7:LO=0:D$="" 

4970 IF NP=1 THEN LET Y=4 ELSE Y=4+NP 

4980 LOCATE Y,X 

4990 PRINT " ";CHR$(29); 

5000 LET A$=INKEY$: IF A$="" THEN GOTO 5000 

5010 IF A$=CHR$(8) AND LO>0O THEN X=X-1:LO=LO-1:D$=LEFT$(D$,LO):PRINT CHR$(29);" 
-"¡CHR$(29);CHR$(29); 

5020 IF A$=" " THEN GOTO 5050 

5030 IF A$=CHR$(13) THEN GOTO 5080 

5040 IF A$<"0" OR A$>"z" THEN GOTO 5000 

5050 PRINT A$;" ";CHR$(29);:LO=LO+1:D$=D$+A$: IF LO<>15 THEN GOTO 5000 
5060 PRINT SPC(18-LO) 

5070 N$(NP)=D$ 

5080 HI=P(1) : 

5090 LOCATE 186,1:PRINT SPACE$(240) 

5100 PU=0:NV=3 

5110 IF NP<>0 THEN NP=0:GOSUB 5380:GOTO 4520 
5120 RETURN 

5130 REM 

5140 REM A+MSSSS OSOS lO lOISOjOIOK 

5150 REM * INSTRUCCIONES x* 

5160 REM adoaidNldlodaialolokalalololojok 

5170 REM 

5180 COLOR ,,,,3 

5190 LOCATE 17,4 

5200 PRINT "COMETE TODOS LOS PUNTOS QUE PUEDAS" 


5210 PRINT 

5220 PRINT " sd 

5230 PRINT " Q USA ESTAS TECLAS" 
UZ40"PRINT <00. PA" 

5250 PRINT " A PARA MOVER EL QUESITO. " 
5260 PRINT " v" 

5270 RETURN 

5280 REM 


5290 REM AdaSSlOOO lalalala alalololokok 

5300 REM * PULSA UNA TECLA x* 

5310 REM AMSSIOOOSO Olla lalololOkakok 

5320 REM 

5330 LOCATE 25,13 ] < 
5340 PRINT "PULSA UNA TECLA" 

5350 LET A$=INKEY$ 

5360 IF A$="" THEN GOTO 5350 

5370 RETURN 

5380 REM 

5390 REM Adol ialolololalolok 

5400 REM * PRESENTACION x* 

5410 REM AdMoSSiOlOdO daa lalo kkakok 

5420 REM 

543u CLS 

5440 COLOR ,,,,3 

5450 RESTORE 7070 

5460 FOR I=2 TO 186 

5470 READ A$ 

5480 FOR J=1 TO LEN(A$) 

5490 IF MID$(A$,J,1)="0" THEN GOTO 5510 
5500 PUT(67+8*(J-1),8*1),A1% 
5510 NEXT J 
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5520 
5530 
5540 
5550 
5560 
5570 
5580 
5590 
5600 
5610 
5620 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5880 
5890 
5900 
5910 
. 5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
68090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 


NEXT 


I 


LOCATE 1,6:PRINT "(c).Ed. Siglo Cultural, 1987" 
COLOR ,,.,.2 
FOR I=1 TO 14 


LOCATE 20,1:PRINT ".” 
FOR J=1 TO 100:NEXT J 
NEXT 1 
COLOR ,,,,3 
LOCATE 20,17:PRINT "= 10 PUNTOS" 
COLOR .,..2 
FOR I=1 TO 13 
LOCATE 22,1:PRINT " x" 
- FOR J=1 TO 100:NEXT J 
NEXT 1 
COLOR ,,,,3 


LOCATE 22,17:PRINT "= 50 PUNTOS" 
FOR J=1 TO 1000:NEXT J *' 
FOR I=0 TO 13 
PUT(1*x8,152),A1% 
FOR J=1 TO 100:NEXT J 
LOCATE 20, I+1:PRINT " " 
PUT(1*8+4,152),B% 
FOR J=1 TO 100:NEXT J 
LOCATE 20, 1+1:PRINT " 


NEXT 


I 


PUT(104,152),A1% 
LOCATE 20,17:PRINT "= TU MISMO " 
FOR I=0 TO 13 
PUT(Ix*x8,168),C% 
FOR J=1 TO 100:NEXT J 
LOCATE 22, I+1:PRINT " ” 
PUT(1*8+2,168),DX 
FOR J=1 TO 100:NEXT J 
LOCATE 22, 1+1:PRINT " 


NEXT 


1 


PUT(104,168),CX 


LOCATE 22,17:PRINT "= TU ENEMIGO" 

FOR I=1 TO 1000 

NEXT I 

RETURN 

REM 

IAN EEES 

REM * DATAS CON LA DEFINICION x* 

REM * DE LOS PERSONAJES. k 

IAN EEES 

REM 

DATA 16,16,8,8,20485,20485,21525,21525, 16469, 21845,85,21845,85, 21845 
DATA 16469,21845, 21525, 21525, 20485, 20485,64,0 

DATA 16,16,8,8,-24566, -24566, -22486, -22486, -30046, -30046, -32126, -30046 
DATA -22486, -22486, -24566, -24566,8200, 10280, 2080,640,0,0 

DATA 126,51,0,0, 0,3840, -1,192,0,0,0,0,0,-241,-1,-16129,0,0,0,0,0,-1 

DATA -1,-769,0,0,0,0,-256, -1,-1,-1,252,0,0,0,-241, -1,-1,-1,-18129,0, 0, 0 
DATA -193,-1, -1, -1, -3841,0, 0,0, -1, -1,-769, -241, -7689, 0, 0, 768, -1,-1,-16129 
DATA -256,-1,0,0,16128,-1,-1, 4095, 16380, -1,240,0,-256,-1,-1,4095, 16188, -1 
DATA 252,0,-253,-1,-1, 4095, 16380, -1, 255,0, -241,-1,-1,-16129,-256, -1 

DATA -16129,0,-241, -1,-1,-769,-241,-1,-168129,0,-1,-1,-1,-1,-1,-1,-769,0 
DATA. -1, -1,-=15 -1, -1,-1, -7689,0,-1,-1,-1,-1,-1,-1,-16129, 768,-1,-1,-1,-1 
DATA -1,-1,240, 788, -1,-1,-1,-1,-1,-1,0,3840, -1, -1, -1,-1,-1,-18129, 0,3840 
DATA -1,-1,-1,-1,-1,240,0, 3840, -1, -1, -1,-1,-789, 0,0, 18128, -1,.-1,-1,-1,255 
DATA 0,0,16128,-1.,-1,-1,-1,240,0,0, 16128, -1, -1,-1,-769,0,.0,0, 16128, -1, -1 
DATA -1,255,0,0,0, 16128, -1,-1, -1, 240, 0, 0, 0, 18128, -1,-1,-1,255,0,0,0 

DATA 16128, -1, -1,-1, -769, 0, O, 0, 16128, -1,-1,-1,-1,192,0, 0, 18128, -1, -1, -1 
DATA -1,255,0, 0, 3840, -1,-1,-1,-1,-769,0,0,3840, -1,-1,-1,-1,-1,240,0 
DATA 3840, -1,-1,-1,-1,-1,-16129,0,768,-1,-1,-1,-1,-1,-769,0,768,-1,-1,-1 
DATA -1,=1,-—1,240,.0,-1,-1,-=1,-1,-1,-1,-18129,0,-1,-1,-1,-1, -1., -1,-709 
DATA 0, -1, -1, -1,-1,-1,-1,-7869, 0, -241, -1, -1,-1,-1,-1,-16129,0,-241, -1, -1 
DATA -1,-1,-1,-16129, 0, -253, -1,-1, -1,-1,-1,255,0,-256, -1, -1,-1,-1,-1,252 
DATA 0,16128, -1,-1,-1,-1,-1,240,0, 768, -1, -1,=1,-1,-1,0,0,0,-1,-1, -1, -1 
DATA -769,0,0,0,-193,-1,-1,-1,-3841,0,0,0,-241,-1,-1,-1,-16129,0,0,0 


6210 DATA -256,-1,-1,-1,252,0,030,0,-1,-1,-769,0,0,0,0,0,-241,-1,-16129 
6220 DATA 0,0,0,0,0,3840,-1,192,0,0 

6230 DATA 132,51,0,0,0,3840,-1,192,0,0,0,0,0,3840,-1,-1,192,0,0,0,0,0,-1,-1 
6240 DATA -769,0,0,0,0,0,-1,-1,-1,-769,0,0,0,0,-241,-1,-1,-1,-16129,0,0,0 
6250 DATA 16128,-1,-1,-1,-1,240,0,0,0,-1,-1,-1,-1,-769,0,0,0,-253,-1,-1 
6260 DATA 4092,-1,255,0,0,16128,-1,-1,-16129,-256,-1,240,0,0,-1,-1,-1,-1009 
6270 DATA -193,-769,0,0,-253,-1,-1,4095,16188,-1,255,0,3840,-1,-1,-1,-1009 
6280 DATA -193,-1,192,0,-241,-1,-1,-16129,-256,-1,-16129,0,-256,-1,-1.-1 
6290 DATA 4092,-1,-1,252,0,-1,-1,-1,-1,-1,-1,-769,0,-256,-1,-1,-1,-1,-1,-1 
6300 DATA 192,768,-1,-1,-1,-1,-1,-1,12528,0,-253,-1,-1,-1,-1,-1,3324,15 
6310 DATA 3840, -1,-1,-1,-1,-1,1023,-253,192,-241,-1,-1,-1,-1,-16129,-64 
6320 DATA -16129,3840,-1,-1,-1,-1,-3841,16176,-1,192,-193,-1,-1,-1,-769 
6330 DATA 3840,-1,-3841,16128,-1,-1,-1,-1,3840,-1,-1,240,-193,-1,-1,-1 
6340 DATA 960,-1,-1,-3841,16128,-1,-1,-1,240,-1,-1,-1,240,-193,-1.-1,255 
6350 DATA -193,-1,-1,-3841,16128,-1,-1,-1,-241,-1,-1,-1,240,-193,-1,-1,-1 
68360 DATA -1,-1,-1,-3841, 16128, -1,-1,-1,-1,-1,-1,-1,240,-193,-1,-1,-1,-1 
6370 DATA -1,-1,-3841,3840, -1,-1,-1,-1,-1,-1,-1,192,-241,-1,-1,-1,-1,-1,-1 
6380 DATA -16129,3840, -1,-1,-1,-1,-1,-1,-1,192,-253,-1,-1,-1,-1,-1,-1,255 
6390 DATA 768,-1,-1,-1,-1,-1,-1,-1,0,-256,-1,-1,-1,-1,-1,-1,252,0,-1,-1,-1 
6400 DATA -1,-1,-1,-789,0,-256, -1,-1,-1,-1,-1,-1,252,0,-241,-1,-1,-1,-1,-1 
6410 DATA -16129,0 

6420 DATA 3840, -1,-1,-1,-1,-1,-1,192,0,-253,-1,-1,-1,-1,-1,255,0,0,-1,-1 
6430 DATA -1,-1,-1,-769,0,0,16128,-1,-1.-1,-1,-1,240,0,0,-253,-1,-1,-1,-1 
6440 DATA 255,0,0,0,-1,-1,-1,-1,-769,0,0,0,16128,-1,-1,-1,-1,240,0,0,0 
6450 DATA -241,-1,-1,-1,-168129,0,0,0,0,-1,-1,-1,-769,0,0,0,0,0,-1,-1,-769 
6460 DATA 0,0,0,0,0,3840,-1,-1,192,0,0,0,0,0,3840,-1,192,0,0,0 

6470 DATA 16,16,16,8,8,8,20485,20485,0,21525,21525,1040,21761, 21845, 1360 
6480 DATA 21760,21845, 5460, 21760,5460, 21845,21761,1360,21845,21525, 1040, 21525 
6490 DATA 20485,0,20485,0,0,0 

6500 REM 

6510 REM AsRSSSSS ISSO OO lS IS” IEE”l”E ESOO lO kOk 

6520 REM * DATAS CON LOS CARACTERES x* 

6530 REM Add OSOS Sia O OOOO OO lOROHOOK 

6540 REM 

6550 DATA 32,201,187,200,188,205,186,206,204, 185 

6560 REM 

6570 REM IAOOIOOROROIOROSIOROOIOO OOO JOJOIOJOJOJOJOK: 

6580 REM * DATAS CON LOS RECORDS x* 

6590 REM AddoSSSO OOOO jolokok 

8600 REM 

6610 DATA "ANTONIO", 34990 

6620 DATA "EL COCO",31720 

6630 DATA "EL AUTOR”, 24030 

6640 DATA "INDIANA", 23300 

6650 DATA "JOSELITO", 11210 

6660 DATA "SUSYN", 11120 

6670 DATA "RAMIRO", 8430 

6680 DATA "DONALD", 7540 

6690 DATA "SHE",3400 

6700 DATA “HE",3210 

6710 REM y 

6720 REM Adol aaa olalaiokok 

6730 REM * DATAS CON LAS DIRECCIONES x* 

6740 REM Adol dd dll 

6750 REM 

6760 DATA -1,-1,1,1,0,0,0,0,0,0,0,0,-1,-1,1,1 

6770 REM 

6780 REM AMSSSOO OSOS alaa aaa aaa aia aaa look 

6790 REM * DATAS CON LA DEFINICION DE LA PANTALLA * 

68800 REM AMMSS ISSO SOS Oa aja alada lalalala alolakalolalalolok 

6810 REM 

6820 DATA "0015555555555555552000000155555555555200" 

6830 DATA "0060000000000000006000000600000000000600" 

6840 DATA "15A5555555555555B5A5555B5A55555555555A52" 

S650-DATÁ “Oi IIA aa *6" 

6860 DATA "“6.15552.1555552.......... 1555552. 15552.6" 

6870 DATA "6.60006. 600000352. 1552. 154000006.60006. 6" 

6880 DATA "6.35554.355555554.6006. 355555554. 35554. 6" 

TOO DRESS "DU io cr o NR 6" 
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6900 DATA "8555552. 155552, 1554003552. 155552. 1555559" 
6910 DATA "6155526.601554. 3555555554. 355206.6155526" 
GOZO DAFA “OSUIDAC. 608... occ o 09 606.6355546" 
6930 DATA "3555554. 354.152. 1CCCCCC2. 152.354. 3555554" 
GAO: DATA o 606.60000006.606............ a 
6950 DATA "15555B2.152.606.60000006.606.152.1B55552" 
6960 DATA "6....34,.354,354,35555554.354.354.34....6" 
ARA ERA 1LO* 
6980 DATA "6.63552.155555555555555555555552.15546.86" 
6990 DATA "6.35526.600015555555555555520006.861554.6" 
7000 DETA "0... 34. III... ...... <<. 35554.34....86" 
O a Er APA 15B555555B52.......... 12.8" 
7020 DATA "6.34.15555552.354...... 354. 15555552.34.6" 
7030 DATA "6*...35555206..... LOBA A 60155554...x*6" 
7040 DATA "8555555555A5755555A55A5555BA5A5555555559" 
7050 DATA "60000000000060000000000000800000000000086" 
7060 DATA "3555555555554000000000000035555555555554" 
7070 REM 

7080 REM AsSSS SS SIS OSOS OJOS lO SS ldlSlSlS lO lSJOIOJOKK 

7090 REM * DATAS CON LA PALABRA PAC-MAN x* 

7100 REM ddaddRSRlSSIRlOSjS OO lSlOSjSS Sl” llSlOlSlolOlJOK 

7110 REM 

7120 DATA "1111110000110000011110" 

7130 DATA "0110011001111000110011" 

7140 DATA "0110011011001101100000" 

7150 DATA "0111100011001101100000" 

7160 DATA "0110000011111101100000" 

7170 DATA "0110000011001100110011" 

7180 DATA "1111000011001100011110" 

7190 DATA "" 

7200 DATA "11000110000110001100011" 

7210 DATA "11101110001111001110011" 

7220 DATA “11111110011001101111011" 

7230 DATA "11111110011001101101111" 

7240 DATA "11010110011111101100111" 

7250 DATA "11000110011001101100011" 

7260 DATA "11000110011001101100011” 


Programa: Diseñador 
de pantallas para SPECTRUM 


DISEMADOR DE PANTALLAS 


La utilidad que presentamos a conti- PAPA RA LUN 
nuación es válida únicamente para el 
SPECTRUM. El programa nos permitirá de- 
finir nuestras propias pantallas gráficas y 
almacenarlas en cassette para cargarlas 
más tarde con un simple LOAD “” CODE. 


PA o TES. 


ES ALE EFIRTEALLA. 

Pl LAA EF ALLA 

Ed ENDE EA RAT FALLA 
E-COEY: DE: PANTALLA. 
E ALONE R AL SAZSIC. 


2") Menú de opciones. 


E 
23 


El programa lleva en sí mismo todas las 
instrucciones necesarias para que el 
usuario entienda su funcionamiento. Para 
ello, una vez que se encuentre en la pan- 
talla de dibujo, sólo tiene que pulsar la 
tecla | de INSTRUCCIONES. 


mM 
n 0 


22325) 
O 


CUrsor. 


012 + 


Principal. 


Ilustraciones. 


REM ASS OOOO lalO OSO ldlS Olalla Olalla Kak 
REM * (c) Ediciones Siglo Cultural * 
REM * (c) 1987 * 
IAN 
REM 
PAPER O: BORDER O: INK 7: CLEAR 48899: GO SUB 9800 
9 CLS : RANDOMIZE USR 48900 
10 CLS 
11 LET x=128 
12 LET y=88 
13 LET d=1 
14 LET o=1 
15 LET p=0 
186 LET tin=7 
17 LET pap=0 
18 GO TO 9500 
19 REM 
20 REM dE SSS SS SOS SSA jSS ESSE” ROSSO SS OOOO KK jOK 


25 REM * SITUA EL CURSOR EN SU NUEVA POSICION * 


26 REM doRMSSSS SISSI llllIlJoJOK 
27 REM 
30 PLOT PAPER PAP;X, Y 
40 LET X=X+(D AND I$="X" AND D+X<256)-(D AND I$="Z" AND X-D>-1): LET Y=Y+(D AN 
I$="K" AND Y+D<176)-(D AND I$="M" AND Y-D>-1) 
PLOT PAPER PAP;X, Y 
DO INPUT INT NO de ass AO La a OM 
RETURN : 
REM 
REM SS O SISSI OJOK 
REM * DIBUJO PROPIAMENTE DICHO x 
REM SOSA ISlllOIOIOOK 
REM 
LET i$=-INKEY$ 
IF I$="" THEN GO TO 110 
IF I$="Z" OR I$="X" OR I$="K" OR I$="M" THEN GO SUB 20 
IF i$="0" THEN LET O=(0=0): OVER O: PLOT OVER 1;X,Y: GO SUB 60 
IF I$="I" THEN GO SUB 9000 
IF I$="P" THEN INPUT "PAPER ? ";T: IF T>-1 AND T<8 THEN LET PAP=T: PAPER 


180 IF I$="T" THEN INPUT "TINTA ? ";T: IF T>-1 AND T<8 THEN LET TIN=T: INK T 
170 IF I$="G" THEN INPUT “GOTO X=";T1;" Y=";T2: IF FN H(T1) AND FN V(T2) THEN 
PLOT OVER 1;X,Y: LET X=T1: LET Y=T2: PLOT OVER 1;X,Y: GO SUB 60 

180 IF I$="L" THEN PLOT X1,Y1: DRAW X-X1,Y-Y1 


PROGRAMAS 


190 IF I$="C" THEN INPUT "RADIO ? ";T: IF FN H(T+X) AND FN V(T+Y) THEN CIRCLE 
X, Y, T 
200 IF I$="V" THEN INPUT "VELOCIDAD DEL CURSOR ? ";T: IF FN V(T) THEN LET D=T 
210 IF I$="R" THEN RANDOMIZE USR 48900: RETURN 
220 IF 1$=" " THEN PLOT OVER 1;X,Y: PAUSE 2: LET Xi=X: LET Yi=Y: PAUSE 2: PAU 
SE 2 
800 GO TO 110 
8998 REM 
8999 REM doSMSSlSlOlSSISIOlOlCEIOJOK 
9000 REM * INSTRUCCIONES x* 
9001 REM ao lSlSlOOOIOIOIOOJOJOK 
9002 REM 
9010 RANDOMIZE USR 48900 
9011 INK O 
9012 PAPER 7 
9013 OVER O / 
9015 DEF FN cg$(a,a$)=CHR$ 22+CHR$ a+CHR$ INT ((32-LEN a$)/2)+a$ 
9016 DEF FN H(T)=(T>-1 AND T<256): DEF FN V(T)=(T>-1 AND T<176) 


9020 CLS 

9021 PRINT FN C$(0, "DISENADOR DE PANTALLAS"), FN C$(1,"-INSTRUCCIONES-") 

9025 LET t=3 

9026 PRINT 

9030 PRINT TAB t; INVERSE 1;"1I"; INVERSE 0; "-Instrucciones. " 

9040 PRINT TAB t; INVERSE 1;"L"; INVERSE 0; "-Linea. ”" 

9050 PRINT TAB t; INVERSE 1;"C"; INVERSE 0;"-Circulo." 

9060 PRINT TAB t; INVERSE 1;"P"; INVERSE 0;"-Cambia PAPER ." 

9070 PRINT TAB t; INVERSE 1;"T"; INVERSE 0;"-Cambia INK ." 

9080 PRINT TAB t; INVERSE 1;"V"; INVERSE 0;"-Cambia velocidad de cursor." 

9090 PRINT TAB t; INVERSE 1;"G"; INVERSE 0;"-Goto punto. " 

9105 PRINT TAB T; INVERSE 1;"0"; INVERSE 0;"-Cambia OVER ." 

9110 PRINT TAB t; INVERSE 1;"R"; INVERSE 0; "-Vuelve al menu principal." 

9112 PRINT " “; INVERSE 1; "SPACE"; INVERSE 0;"-Dibuja punto. " 

9115 PRINT **”TAB T;"Cursor:", INVERSE 1;"X"; INVERSE 0; "-Derecha. ",, INVERSE 1;” 
Z"; INVERSE 0;"-Izquierda.",, INVERSE 1;"K"; INVERSE 0;"-Arriba. ",, INVERSE 1;"M 


"; INVERSE 0;"”"-Abajo." 

9120 PRINT +$t0;FN c$(0, "-PULSA UNA TECLA-") 

9130 PAUSE O 

9131 INK TIN 

9132 PAPER PAP 

9133 OVER O 

9140 RANDOMIZE USR 48912 

9150 RETURN 

9498 REM 

9499 REM A*MSSOOO OOOO OOOO JO iOjOKak 

9500 REM * MENU PRINCIPAL *x 

9501 REM ASSSSSSSOSOOOOVOOIOKOK 

9502 REM 

9520 POKE 23658, 8 

9521 INK O 

9522 PAPER 7 

9523 CLS 

9524 PRINT FN C$(0, "DISENADOR DE PANTALLAS”) 

9530 PRINT FN C$(2,"-ESCOGE OPCION-") 

9540 PRINT : PRINT ***TAB 5; INVERSE 1;"1"; INVERSE 0;"-DIBUJAR. "**TAB 5; INVERS 
E 1;"2"; INVERSE 0;"-SAVE PANTALLA. "*”TAB 5; INVERSE 1;"3"; INVERSE 0;"-LOAD PAN 
TALLA. "*”TAB 5; INVERSE 1;"5"; INVERSE 0;"-BORRAR PANTALLA. "*”TAB 5; INVERSE 1;" 
6"; INVERSE 0;"-COPY DE PANTALLA. "*”TAB 5; INVERSE 1;"7"; INVERSE 0;"-VOLVER AL 
BASIC." 

9550 INPUT OPC 

9560 IF OPC=1 THEN INK TIN: PAPER PAP: OVER O: RANDOMIZE USR 48912: PLOT OVER 
1;X,Y: GO SUB 60: GO SUB 100: GO TO 9500 

9570 IF OPC=2 THEN GO SUB 9630: GO TO 9520 

9580 IF OPC=3 THEN GO SUB 9660: GO TO 9520 

9590 IF OPC=7 THEN STOP 

9600 IF OPC=5 THEN CLS : RANDOMIZE USR 48900: GO TO 9500 

9610 IF OPC=86 THEN RANDOMIZE USR' 48912: COPY 

9620 GO TO 9500 

9621 REM 

9622 REM ASSSSSSSiOOEOiOOOlOjOJOK 


REM * SAVE PANTALLA * 
REM ASS SO OOOO loldjololalok 
REM 

GO SUB 9700 

IF LEN N$>10 OR N$="" 
RANDOMIZE USR 48912 
SAVE N$SCREEN$ 

RETURN 

REM 

REM AMSSS OOOO alojada jalolok 
REM * LOAD PANTALLA * 
REM AMSSS SS O lO joloOlajolaJojk 
REM 

GO SUB 9700 

IF LEN N$>10 THEN RETURN 
LOAD N$SCREEN$ 

INPUT "" 

RANDOMIZE USR 48900 
RETURN 

INPUT "NOMBRE ? (MAX. 10 CARACTERES)"” LINE N$ 
RETURN 

REM 

ANI EEES 
REM * RUTINAS C/M * 
REM AMSSSSO OOOO lO JO kok 
REM 

FOR 1=48900 TO 48923 
READ A 

POKE 1,A 

NEXT 1 

RETURN 

REM 

REM ASMSSSS OSOS OOOO Ok 
REM * LINEAS DE DATA * 
REM AOOIOROIOIOIOIOOJOJOJOOIOJOJO NOK 
REM 

DATA 33,0,64,17,80,195,1,0,27,237,176,201,33,80,195,17,0,64,1,0,27,237,176, 


OMO se ha comenta- 
do, el campo de apli- 
cación natural del 
«esquema director» 
son los diferentes «do- 
minios» de la activi- 
dad de la Compañía. 
Es precisamente el 
estudio y definición de estos dominios lo 
que aporta la información imprescindi- 
ble para el establecimiento de los «esce- 
narios» generales sobre los cuales se des- 
arrolla la actividad de la Organización. 


Tal como hemos descrito, se suelen 
establecer fundamentalmente tres tipos 
de estudios de base para el desarrollo 
de los proyectos informáticos, según el 
nivel de mecanización de la Compañía 
o Departamento de que se trate y según 
la amplitud del proyecto que se aborda: 
el esquema director, el estudio de viabi- 
lidad y el estudio detallado. Veamos las 
etapas que, en el desarrollo de estos es- 
tudios, suelen aparecer. 


[M) Esquema director 


Suele desarrollarse en cinco fases: 


-— Estudio de la puesta en marcha del 
plan. Se trata de comprobar que se dan 
las condiciones objetivas necesarias 
para el lanzamiento de un estudio de 
este tipo: definición de problemas de 
gran amplitud, interés por parte de la di- 
rección, estado adecuado del nivel de 
mecanización y del desarrollo de los pro- 
blemas, etc. Se establecen las grandes 


TECNICAS DE ANALISIS 


FASES DE LOS ESTUDIOS INFORMATICOS 


decisiones a tomar: descentralización- 
concentración, fenómeno micro, comu- 
nicaciones, etc. 

— Balance de la situación y objetivos 
a alcanzar. 

Se establece un balance exhaustivo 
por dominios verticales (producción, co- 
mercial, etc.) y por temas horizontales 
(comunicación, ayuda a la decisión, 
etcétera). Se trata de obtener una prime- 
ra aproximación a los objetivos a alcan- 
zar, a los esfuerzos futuros que habrá que 
aportar, y relacionar todo ello con la si- 
tuación de que se parte. Al final de esta 
fase se pueden apuntar algunas solucio- 
nes conceptuales: recentralizar tal tipo 
de información para obtener una mayor 
coordinación, controlar más de cerca 
ciertas funciones para establecer, posi- 
blemente, una nueva distribución de ta- 
reas, etc. 

— Concepción de los escenarios posi- 
bles. 

Un escenario se define por una solu- 
ción organizacional y técnica y por una 
secuencia de tareas que hay que des- 
arrollar para llegar a ella, teniendo en 
cuenta la situación de que partimos y las 
posibilidades de evolución. 

Cuando se concluye el estudio de los 
escenarios posibles se pueden comparar 
las diferentes variaciones elaboradas, 
desde el punto de vista de los costes, 
riesgos y ventajas de cada una y estable- 
cer un cuadro de soluciones propuestas, 
así como el orden de magnitud de las in- 
versiones necesarias para desarrollarias. 

— Elaboración de planes de acción. 

Se trata de ajustar un «planning» de las 
acciones a abordar en los próximos años 


en función de los medios de que se dis- 
pone. 

Hay que relacionar los proyectos que 
se han de poner en marcha, los materia- 
les que es necesario adquirir, etc. Es im- 
portante establecer las prioridades de 
cada tarea, su desarrollo en el tiempo y 
la condición de modificable (actualiza- 
ble) o no de cada uno de los planes pro- 
puestos. 


— Preparación de la puesta en mar- 
cha del plan de acción que se haya ele- 
gido. La puesta en marcha de un plan de 
acción supone la definición de estructu- 
ras y procedimientos para: 


e realizar lo que se ha previsto 


e estar preparado para abordar los im- 
previstos 


Estudio de 


puesta en 
marcha 


Concepción 


Balance de 
situación y 
censo de 
objetivos 


de los 


escenarios 
posibles 


Revisión 


Actualización 


Elección 
del plan 
de acción 


Elaboración de 
planes de 
acción 


Preparación de 
la puesta 
en marcha 


A Ciclo del «esquema director». 


e mantener un sistema de actualiza- 
ción periódica del plan de acción. 


Como conclusión de esta parte del tra- 
bajo conviene reflexionar sobre el estu- 


dio completo, validar los planes pro- 
puestos y decidir la aprobación final del 
documento «esquema director» para, 
consecuentemente, «lanzarlo» a la orga- 
nización: difundirlo y estudiarlo. 


Programación 


modular 


A programación mo- 
dular es una de las 
técnicas más impor- 
tantes y útiles que se 
utilizan en programa- 
ción de ordenadores. 
Su uso permite hacer 
los programas más 
estructurados y comprensibles, más fáci- 
les de analizar y construir, facilitando, 
además, el trabajo en equipo, pues un 
programa completo puede descompo- 
nerse en módulos hasta cierto punto in- 
dependientes, cada uno de los cuales 
puede ser asignado a un programador 
diferente, permitiendo al mismo tiempo a 
cada miembro del equipo cierta libertad 
para programar y elegir nombres de va- 
riables de acuerdo con su estilo perso- 
nal. 

Desgraciadamente, el lenguaje BASIC, 
uno de los más extendidos en el campo 
de los microordenadores, aquí, como en 
otras cosas, deja mucho que desear. En 
efecto, este lenguaje no está realmente 
preparado para la programación modu- 
lar. Existen, es verdad, ciertas instruccio- 
nes que permiten programar de una for- 
ma que se aproxima lejanamente a la uti- 
lización de estas técnicas, pero que, 
comparadas con las que ofrecen otros 
lenguajes, resultan insuficientes e insatis- 
factorias. 

A pesar de todo, y para quien no ten- 
ga otra posibilidad que la de utilizar el 
lenguaje BASIC, es preciso conocer con 
detalle lo poco que puede hacerse, 
para aprovecharlo al máximo en lo que 
pueda dar de sí y sacar alguna ventaja, 
por pequeña que sea, de la programa- 
ción modular. 


TECNICAS 
DE PROGRAMACION 


Llamaremos «módulo» (o subprograma) 
de un programa a una parte aislada de 
éste, cuya ejecución puede desencade- 
narse desde diversos puntos del resto del 
programa. Además (y esto es lo funda- 
mental), una vez que termine la ejecu- 
ción del módulo, el programa debe con- 
tinuar ejecutándose en la instrucción si- 
guiente a aquella que invocó la ejecu- 
ción del módulo. 

Veamos, en primer lugar, un ejemplo 
de lo que no es programación modular: 


1000 GOTO 5000 
1010 - - - 
2000 GOTO 5000 
2010 . . . 
5000 . . . 
5090 GOTO 1010 


Observemos lo que ocurre con este 
programa. En primer lugar, cuando quie- 
ra que la ejecución llegue a la instruc- 
ción 1000, la instrucción de transferencia 
incondicional transfiere control a la ins- 
trucción 5000. Allí se ejecuta una serie de 
instrucciones (representadas en el ejem- 
plo por puntos suspensivos) después de 
lo cual se transfiere de nuevo control a la 
instrucción 1.010 y se continúa la ejecu- 
ción secuencial de las instrucciones su- 
cesivas. Es decir, el trozo de programa 
comprendido entre las instrucciones 
5000 y 5090 se ha insertado, para todos 
los efectos, entre las instrucciones 1000 y 
1010. Hasta aquí todo está de acuerdo 
con la definición de la programación 
modular indicada más arriba. 

Sin embargo, la situación es muy dife- 
rente si llegamos a ejecutar la instrucción 
2000. En ese caso, como en el anterior, 
nos encontramos una transferencia in- 


condicional a la instrucción 5000. Allí se 
ejecutará de nuevo la serie de instruccio- 
nes de etiquetas 5000 a 5090, y al llegar 
a esta última daremos con una nueva ins- 
trucción de transferencia incondicional, 
que nos envía de nuevo a la instrucción 
1010. No se cumple, por tanto, la condi- 
ción fundamental de la programación 
modular: que al final de la ejecución del 
módulo, el programa continúe en la ins- 
trucción siguiente a la que puso en mar- 
cha la ejecución de aquél. En nuestro 
caso, para que la programación fuese 
modular, en este segundo caso la ejecu- 
ción tendría que haber regresado a la 
instrucción 2010. 

En BASIC existe una instrucción que per- 
mite desencadenar la ejecución del mó- 
dulo y que se-escribe así: 


GOSUB etiqueta 


Además, se dispone también de una 
instrucción especial que indica al intér- 
prete o compilador de BASIC que se da 
por terminada la ejecución del módulo y 
se desea regresar a la instrucción si- 
guiente a la que desencadenó dicha 
ejecución. Dicha instrucción de termina- 
ción se escribe asi: 


RETURN 


que, en inglés, significa VOLVER. ) 
Veamos un ejemplo de programación 
modular: 


1000 GOSUB 5000 
1010... 

2000 GOSUB 5000 
2010... 
5000 . . + 
5090 RETURN 


Este caso se diferencia del anterior en 
lo siguiente: el paso por la instrucción 


5000 


1000 I=1: GOSUB 5000 


5090 IF 1>4 THEN RETURN ELSE I=I+1: GOTO 5000 


1000 desencadena la ejecución del mó- 
dulo comprendido entre las instruccio- 
nes 5000 y 5090. Al llegar a ésta (RETURN) 
la ejecución vuelve a la instrucción 1010. 
Hasta aquí, todo va como en el ejemplo 
anterior. Pero si ahora llegamos a la ins- 
trucción 2000, se desencadenará de 
nuevo la ejecución de la instrucción 
5000, y al llegar por segunda vez a la ins- 
trucción 5090, el programa regresará a la 
instrucción 2010. Es decir, en la progra- 
mación modular, el programa «recuer- 
da» el lugar desde donde ha sido llama- 
do y es capaz de volver a él cuando en- 
cuentra la instrucción RETURN. 

Tanto la instrucción GOSUB como RE- 
TURN pueden emplearse dentro de un 
bloque secuencial de instrucciones, o 
como parte ejecutable de una instruc- 
ción condicional, o dentro de un bucle. 
Veamos algunos ejemplos: 


1000 I=1: GOSUB 5000: I=I+1i 
1010. . . 
5000 . . . 
5090 RETURN 


La ejecución de la instrucción 1000 se 
realiza así: primero se asigna a la varia- 
ble | el valor 1. Después se desencadena 
la ejecución del módulo situado en la eti- 
queta 5000. Cuando éste llega a su fin (la 
instrucción de etiqueta 5090) y encuen- 
tra la correspondiente instrucción RE- 
TURN, la ejecución del programa princi- 
pal continúa en el punto donde se había 
interrumpido, es decir, se le asigna a la 
variable | el valor | + 1. Entonces, y sólo 
entonces, pasa la ejecución a la instruc- 
ción 1010. 


so TECNICAS DE PROGRAMACIÓN 


En este ejemplo, la instrucción 1000 
asigna a la variable | el valor 1 y después 
desencadena la ejecución del módulo 
que comienza en la etiqueta 5000. Este 
se ejecuta sucesivamente hasta llegar a 
la instrucción 5090, donde encontramos 
una instrucción condicional cuya condi- 
ción (| > 4) no se cumple (suponemos 
que el valor de | no es modificado por las 
instrucciones del módulo anteriores a la 
etiqueta 5090). Por tanto, entra en ejecu- 
ción la parte ELSE, que consta de un blo- 
que secuencial de dos instrucciones. La 
primera incrementa el valor de | en una 
unidad (con lo que pasa a valer 2) y la 
segunda es una transferencia incondicio- 
nal al principio del módulo. La ejecución 
de éste se repetirá, por tanto, pero aho- 
ra, al llegar por segunda vez a la instruc- 
ción 5090, la variable | vale 2. Tampoco 
se cumple la condición, por lo que asig- 
naremos a | el valor 3 y volveremos a eje- 
cutar el módulo. Es fácil ver que el módu- 
lo se ejecutará exactamente cinco ve- 
ces, y que la quinta vez que se llegue a 
la instrucción 5090 la variable 1 valdrá 5, 
la condición se: cumplirá y se ejecutará 
la parte THEN de la instrucción condicio- 
nal, con lo que se dará por terminada la 
ejecución del módulo y la ejecución 
continuará en la instrucción de etiqueta 
1010. 

Veamos cómo sería el organigrama del 
ejemplo anterior: 


aw Fig. 1. 


Obsérvese que el organigrama de un 
módulo se dibuja como un programa in- 
dependiente, que la instrucción RETURN 
corresponde al bloque curvo que indica 
el final del programa y que el desenca- 
denamiento de la ejecución del módulo 
se representa con un bloque rectangular 
al que, para hacerlo resaltar, se le real- 
za a menudo con dos líneas verticales 
adicionales. 

Veamos otro ejemplo: 


1000 FOR I=1 TO 5: GOSUB 5000: NEXT 1 


En este caso, la llamada a la ejecución 
del módulo (GOSUB 5000) aparece den- 
tro de una instrucción de bucle. En las 
condiciones indicadas, el módulo se eje- 
cutará exactamente cinco veces. Por 
tanto, si las instrucciones del módulo re- 
presentadas por puntos suspensivos 
(5000 a 5080) fueran las mismas que las 
del ejemplo anterior, este programa se- 
ría totalmente equivalente al de dicho 
ejemplo. 

Veamos su organigrama: 


mu Fig. 2. 


Citemos, por último, que es también 
posible llamar a un módulo dentro de 
otro módulo, como en el siguiente ejem- 
plo: 


cuyo organigrama es: 


41000 


[A Fig. 3. 


En este caso, al llegar a la instrucción 
1000, se desencadena la ejecución del 
módulo que comienza en la instrucción 
5000. A medida que ésta avanza, se lle- 
ga a la instrucción 5050, donde se de- 
sencadena la ejecución del módulo que 
comienza en la instrucción 6000. Al llegar 
a la instrucción 6090, se da por termina- 
da la ejecución de este módulo y regre- 
samos a la instrucción siguiente a la que 
lo llamó (en nuestro caso, la instrucción 
5060). Después continuamos sucesiva- 


mente hasta llegar a la instrucción 5090, 
donde termina, a su vez, la ejecución del 
módulo que comienza en la instrucción 
5000, regresándose, por fin, a la instruc- 
ción 1010. Como se ve, el intérprete o el 
compilador de BASIC dispone de una 
pila donde guardan las direcciones de 
retorno de cada módulo, con el fin de re- 
gresar cada uno a'la instrucción que le 
corresponde, aunque sean varias las lla- 
madas acumuladas. 


LOGO 


m Cómo copiar 
los procedi- 
mientos y varia- 
bles en una cinta 
o diskette 


A sabemos que tene- 
mos la posibilidad de 
enseñarle a la tortu- 
ga a hacer cosas 
nuevas mediante la 
definición de proce- 
dimientos. Pero hay 
un problema. En el 
momento en que apagamos el ordena- 
dor, la tortuga se olvida de todo lo que 
le hemos enseñado y si queremos que lo 
vuelva a aprender, tenemos que definir 
otra vez los procedimientos. 

Para evitar esto, lo que se puede 
hacer es guardar todo lo que ha apren- 
dido la tortuga en una cinta o en un dis- 
kette antes de apagar el ordenador. De 
esta forma, cuando volvamos a encen- 
derlo no hará falta escribir los procedi- 
mientos otra vez, sino que bastará con 
darle una orden a la tortuga para que lea 
lo que tenemos almacenado en la cinta 
o diskette y lo aprenda de nuevo. 

En la cinta o diskette no sólo pode- 
mos guardar la definición de procedi- 
mientos, sino que también se pueden al- 
macenar los nombres de las variables a 
las que hayamos asignado un valor me- 
diante el comando HAZ y los valores que 
tengan sus cajones correspondientes. 
Toda esta información se guarda en un 
archivo o fichero. 

Es decir, es como si copiáramos to- 
das aquellas cosas que le hemos ense- 
ñado a la tortuga y los cajones que he- 
mos usado en una hoja de papel, pero 
en lugar de utilizar un cuaderno cogemos 


una cinta o un diskette y cada hoja es un 
fichero. 

Para realizar esta copia se utiliza el 
comando 


GUARDA “nombrefich “nombreproc 


que copia la definición del procedimien- 
to nombreproc en un fichero que vamos 
a llamar nombrefich. Como se puede ver, 
al igual que con los procedimientos, 
para distinguir un fichero de otro tene- 
mos que dar a cada uno un nombre. 

Si queremos copiar varios procedi- 
mientos en un mismo fichero, pondremos: 


GUARDA “nombrefich [nombreproc 1 
nombreproc2 ... nombreprocn] 


es decir, meteremos los nombres de los 
procedimientos en una lista. 

Por último, si escribimos simple- 
mente 


GUARDA “nombrefich 


lo que haremos será copiar en el fichero 
nombrefichtodas las definiciones de pro- 
cedimientos que tengamos y, además, 
todos los nombres de variables que ha- 
yamos usado con el comando HAZ, así 
como los valores que tienen en ese mo- 
mento. 

Por ejemplo, supongamos que le 
hemos enseñado a la tortuga un proce- 
dimiento que dibuja un polígono de 12 
lados: 


7 PARA POLIGI2 


* REPITE 12 [AV 50 GD 360/1217 


y que luego hemos hecho varias asigna- 
ciones: 


? HAZ "SALUDO "HOLA 


7? HAZ "NOTAS [DO RE MI FA SOL LA SI] 


? HAZ 


"NUMERO 3 


?GUARDA “FICHERO 14M 


| ?GUARDA “FICHERO1 
_7 


[A Fig. 1. 


el fichero FICHERO 1 contenará: 


— Las definiciones de procedi- 
mientos: POLIG 12. 

— Los nombres de las variables: 
SALUDO, NOTAS y NUMERO. 

— Los valores que contienen estas 
variables: HOLA, DO RE MI FA SOL LA SI y 5. 


Como vemos, al hacer la copia, la 
tortuga no cambia ni sus características 
ni lo que haya en la pantalla. Simplemen- 
te, ejecuta la orden que le hemos dado 
y nos indica que ha realizado el coman- 
do GUARDA escribiendo la interrogación 
(?), en espera de que le demos otra or- 
den. 

Si ya hemos:terminado de trabajar, 
podemos apagar el ordenador sin impor- 
tarnos que la totuga se olvide de las co- 
sas nuevas que ha aprendido, ya que lo 
tenemos guardado en la cinta o diskette. 


7 GUARDA 


? GUARDA "FIGURAS [TRIANGULO CUADRADO RECTANGULOJ 


"COSAS [CASA MUÑECOI 


Cómo recuperar lo que hay 
guardado en la cinta 


o diskette 


Cuando encendemos el ordena- 
dor y queremos enseñarle a la tortuga 
cosas que tenemos guardadas en una 
cinta o diskette, ya sabemos que no 
hace falta escribir los procedimientos 
otra vez. Pero nos falta saber cómo le po- 
demos decir que lea las definiciones que 
están almacenadas en un fichero y las 
aprenda. 

Para eso se utiliza el comando 


CARGA «nombrefich 


donde nombrefich es el nombre del fi- 
chero que contiene los procedimientos 
que la tortuga ha de aprender. 

Vamos a ver si funciona. Suponga- 
mos que tenemos definidos varios proce- 
dimientos. Para ver cuáles son podemos 
utilizar el comando IMTS que nos muestra 
en la pantalla todos los nombres de pro- 
cedimientos: 


PARA TRIANGULO 
PARA CUADRADO 
PARA RECTANGULO 
PARA CASA 
PARA MUÑECO 
a 


Ahora queremos guardarlos en dos fi- 
cheros diferentes: uno que contenga fi- 
guras y otro que contenga cosas. Para 
ello, escribiriamos: 


5 LOGO 


Si ahora apagamos el ordenador y volve- 
mos a encenderlo, al escribir IMTS nos sal- 
drá: 


Fig. 3. 


es decir, no hay ningún nombre de pro- 
cedimiento (la tortuga ha olvidado todo 
lo que había aprendido). 

Si queremos que sólo recuerde 
cómo hacer las figuras pondríamos: 


y al escribir IMTS nos aparece lo siguien- 
te: 


IMTS 
PARA TRIANGULO 


| PARA CUADRADO 
| PARA RECTANGULO 


Fig. 4. 


es decir, ya sabe hacer los dibujos 
correspondientes a los procedimientos 
contenidos en el archivo FIGURAS. 


Algunas aplicaciones 
Z con ficheros 


Ya sabemos cómo guardar infor- 
mación de procedimientos y variables 
en un fichero y cómo hacer que la tortu- 
ga la recupere después de apagar el or- 
denador. 

Puede ocurrir que poco a poco ha- 
yamos ido creando muchos ficheros en 
nuestra cinta o diskette y que a la hora 


de que queramos que la tortuga apren- 

da los procedimientos almacenados en 

uno de ellos no recordemos su nombre. 
El comando 


DIR 


(que es la abreviatura de DiRectorio) 
hace que la tortuga nos muestre en pan- 
talla todos los nombres de los ficheros de 
la cinta o diskette. Es probable que estos 
nombres no sean exactamente los que 
nosotros pusimos, sino que lleven a con- 
tinuación una serie de caracteres que se 
llaman en conjunto extensión. Estos ca- 
racteres los pone el ordenador automáti- 
camente. 

Por ejemplo, en el caso anterior 
tendríamos que: 


Fig. 5. 


Aquí, la extensión es .LOG. 

Es decir, con DIR obtenemos una lis- 
ta de los ficheros que hay en la cinta o 
diskette. Es parecido al índice de un li- 
bro, pero en lugar de tener los títulos de 
los temas y las páginas, nos aparecen los 
nombres de los ficheros y otra informa- 
ción, como su tamaño, su fecha de crea- 
ción... 

Otro comando que se puede utili- 
zar con ficheros es 


BOARCHIVO «nombrefich 


(abreviatura de BOrra ARCHIVO) que sir- 
ve para borrar el fichero que se llama 
nombrefich de la cinta o diskette. 

Es bueno usar este comando para 
borrar ficheros que contengan definicio- 
nes de procedimientos que sabemos 
que no nos valen porque las hayamos 
modificado después o porque no tenga- 
mos que volver a utilizarlas. De esta for- 
ma, dejaremos espacio libre en la cinta 
o diskette para guardar otros ficheros 
que sí vayamos a necesitar más tarde. 


PASCAL 


| Listas 
* encadenadas 


OMO ya hemos visto, 
se podría definir una 
«lista encadenada» 
(también denomina- 
da «lista lineal») como 
una estructura de da- 
tos en la que cada 
elemento contiene la 
referencia necesaria para acceder al si- 
guiente. Estas estructuras son de una 
enorme importancia en multitud de apli- 
caciones de proceso de datos; recorde- 
mos el ejemplo que vimos: 


Carlos - etc. 


e! 
8.5 
(SIGUIENTE) PY 


(SIGUIENTE) | (SIGUIENTE) P— 


La definición de estas fichas podría ser: 


type 

Nombre.t = array (1..12) of char; 

Punt.t = * Ficha.!t; 

Ficha.t  =record 
Nombre, 
Apellido, 
Apellido2 : Nombre.!t; 
Nota.A, 
Nota.B, 
Nota.C  :real 
Siguiente : Punt.t 

= end; 


var 
Primera: Punt.!t; 


La variable Primera sería necesaria 
para poder acceder a la primera ficha 
de la lista; por otra parte, el campo Si- 
guiente de la última ficha debería tener 
el valor estándar NIL. 

Al definir el tipo Punt.t se ha hecho re- 
ferencia al tipo Ficha.t que todavía no es- 
taba definido; éste es uno de los pocos 
casos en que eso está permitido (el com- 
pilador puede aceptarlo porque, inde- 
pendientemente de cuáles sean los tipos 
de variable a los que vayan a apuntar, 
todos los punteros tienen internamente la 
misma estructura y con la definición tal 
como está ya se puede saber que Punt.t 
es algún tipo de puntero). Si se hiciera 
primero la definición de Ficha.t, como en 
ésta se hace a su vez referencia al tipo 
Punt.t que todavía no estaría definido, se 
produciría un error. 

Algunos compiladores no toleran esta 
situación, por lo que habría que definir Fi- 
cha.t de la siguiente manera: 


type : 
Nombre.t = array (1..12) of char; 
Ficha.t = record 
Nombre, 
Apellido4, 
Apellido2 : Nombre.!t; 
Nota.A, 
Nota.B, 
Nota.C : real 
Siguiente : “Ficha.!t; 
end; 
var Pa 
Primera:  —Ficha.!t; 
Con estos mismos compiladores tam- 
bién suele suceder que, como el campo 
Siguiente y otros posibles punteros (como 


ES PASCAL 


Primera) no se pueden declarar utilizan- 
do la misma definición previa, son con- 
ceptuados como de distinto tipo y no es 
posible asignarlos unos a otros; en el 
caso de Primera podríamos, por ejemplo, 
utilizar una variable AntesQuePrimera 
de tipo Ficha.t cuyo campo Siguiente se 
utilizaría para apuntar a la primera ficha, 
desperdiciándose todos los demás cam- 
pos. 

Vamos a ver algunas de las operacio- 
nes más elementales que se pueden rea- 
lizar con listas encadenadas: 


— Inserción de un nuevo elemento al co- 
mienzo de la lista 


Esta es, probablemente, la operación 
más sencilla de todas. Lo primero que ha- 
bría que hacer sería crear con NEW la 
nueva ficha y opcionalmente rellenarla 
de datos, utilizando para referirnos a ella 
un puntero auxiliar P de tipo Punt.t; tras 
ello, su campo Siguiente debería tomar 
el valor de Primera (para apuntar así a la 
hasta entonces primera ficha) y, por últi- 
mo, Primera habría de pasar a apuntar a 
la nueva ficha, es decir, debería tomar el 
valor de P: 


new (P); 

(* Rellenar P ”.. *) 

P “Siguiente := Primera; 
Primera := P; 


La lista del ejemplo una vez ampliada 
podría ser: 


— Felipe 
Anaya 
del Olmo 


L r Alvaro Ernesto r— Carlos ] — etc 


Fernández González [ 
González Pozas | 
| 


a.9 7. | 


o | , — + 4 
SIGUIENTE) J | (SIGUIENTE>) LJ SIGUIENTE) + 
E A ) 


SEA l a - 


Para crear una lista partiendo de cero 
a base de insertar elementos por delan- 
te, bastaría con empezar creando una 
lista vacía y repetir la secuencia anterior 
para las diferentes fichas. Una lista vacía 


sería aquélla en que Primera no apunta- 
se a ninguna ficha y, por tanto, se crea- 
ría así: 

Primera := nil; 


Al crear una lista de esta manera, 
cuanto más tarde se añadiese una ficha, 
más adelantada quedaría. Para conse- 
guir que el orden de crecimiento de la lis- 
ta fuese el contrario, habría que ir aña- 
diendo los elementos justo por el final. 


-- Recorrido secuencial de una lista 


Imaginemos que hubiese que recorrer 
una lista para procesar todos sus elemen- 
tos, empezando por el primero; si «Ac- 
tual» fuese una variable de tipo Punt.t 
que apuntase en cada momento a la fi- 
cha que se fuese a procesar, la secuen- 
cia adecuada sería: 


(" Empezar por la primera: *) 
Actual := Primera; 


(" Si hay ficha, procesarla: *) 
while Actual <> nil do 
begin 
Procesar (Actual 5; 


(" Pasar a la siguiente: *) 
Actual := Actual”. Siguiente 
end; 


Si hubiese que recorrer la lista en bus- 
ca de un elemento dado, haríamos lo 
mismo pero poniendo como condiciones 
de salida del bucle la llegada al final o 
el hallazgo de la ficha: 


Actual := Primera 
while (Actual <> nil) 
not “es Actual “do 
Actual := Actual”.Siguiente; 
if Actual <> nil then (* es Actual” *) 


and 


y 


«es Actual”” sería la condición booleana 
que comprobaría si Actual” es el elemen- 
to buscado. Si no existiese ese elemento, 
llegaría un momento en que Actual ten- 
dría el valor NIL, y tal como está progra- 
mada la salida del bucle, se evaluaría la 
condición de identificación a pesar de 
ello, lo cual sería erróneo, pues, lógica- 
mente, esa evaluación implica analizar 
el contenido de uno o más campos de 
Actual”; es exactamente el mismo pro- 
blema que teníamos con las tablas de 
caracteres a la hora de determinar la 
longitud efectiva de un texto. Una forma 
correcta de programarlo sería, por tanto: 


Actual := Primera; 
EsEsta := false; 


while (Actual <> nil) and not EsEsta do 
if “es Actual  ” then EsEsta := true 
else Actual := Actual .Siguiente; 


if EsEsta then... 


Avanzar sería una variable de tipo Boo- 
lean. 


— Inserción de un nuevo elemento tras 
uno dado de la lista. 


Esto es muy parecido a la inserción al 
comienzo de la lista: si Actual apunta al 
elemento de la lista tras el cual se desea 
insertar el nuevo, que está apuntado por 
P, haríamos: 


new (P); 

(" Rellenar P”... *) 

P “Siguiente := Actual”.Siguiente; 
Actual”.Siguiente := P; 


o sea, hacemos que el campo Siguiente 
de P” apunte a la ficha que va tras Ac- 
tual” y luego hacemos que tras Actual 
vaya P” . Gráficamente, sería pasar de la 
situación: 


Actual 


a] 


a la situación: 


an E 


— Inserción de un nuevo elemento de- 
lante de uno dado. 


En principio, esto parece complicado 
pues habría que modificar el campo Si- 
guiente de la ficha anterior a la actual 
para que apuntase a la nueva, y desde 
un ficha dada sólo podemos ir hacia de- 
lante, nunca hacia atrás. Sin embargo, se 
puede hacer de una manera muy senci- 
lla, mediante un pequeño truco que con- 
siste más o menos en insertar la nueva 


detrás de la actual —cosa que ya sabe- 
mos hacer— e intercambiar sus conteni- 
dos: 


new (P); 

P “= Actual”; 

(" Rellenar Actual” con *) 
(" los nuevos datos 1) 


Actual” .Siguiente := P; 


—— Eliminación del sucesor de un elemen- 
to dado de la lista 


Para eliminar el elemento siguiente a 
Actual” de la estructura, basta con «sal- 
tar» por encima de él, o sea, hacer que 
el puntero Siguiente de Actual” tome el 
valor del puntero Siguiente de la ficha 
posterior: 


Proximo := Actual” .Siguiente; 
Actual” .Siguiente := Proximo” .Siguiente; 


Próximo sería un puntero auxiliar. Por 
supuesto, la ficha Próximo” seguiría en 
memoria tras su eliminación de la lista 
podríamos entonces incorporarla a otra 
lista o eliminarla de memoria, pero esto 
último veremos cómo hacerlo en otra 
ocasión. 


— Eliminación de un elemento dado de 
la lista 


Esto, al igual que la inserción por de- 
lante, parece difícil en principio, pues 
hay que retocar el puntero de la ficha an- 
terior para que apunte a la siguiente, sal- 
tando por encima de la actual. De ma- 
nera análoga a como se hizo entonces, 
podemos copiar el contenido de la si- 
guiente en Actual” y después borrar 
aquélla (aunque habría que comprobar 
antes que Actual” no es la última de la 
lista): 


Proximo := Actual” .Siguiente; 
Actual” := Proximo” ; 


Es decir, pasaríamos de: 


Actual Proximo > 


a 


Actual o 


Y Próximo” quedaría apuntado a una fi- 
cha que ya no perteneceriía a la lista. 


A que el FORTRAN es 
el lenguaje orientado 
al cálculo científico 
por excelencia, es 
importante hacer hin- 
capié en el tema de 
las expresiones arit- 
méticas. 

Se llama expresión aritmética a un con- 
junto de constantes, variables y referen- 
cias a funciones, relacionadas entre sí 
por paréntesis, símbolos de operación, 
etcétera. 

Los operadores aritméticos que se pue- 
den utilizar en FORTRAN son: 


+: Suma *: Multiplicación 
-: Resta /: División 
**: Exponenciación 


La evaluación de las expresiones arit- 
meticas se hace de acuerdo con la si- 
guiente jerarquia: 


1. Se evalúan las funciones. 

2. Se calculan las exponenciaciones 
C) 
3. Se evalúan los productos y divisio- 
nes (*, /). 

4. Por último, se calculan las sumas y 
restas (+, -). 

Si en una expresión aparecen varios 
operadores con la misma jerarquía, estas 
operaciones se efectuarán de izquierda 
a derecha. 

El uso de paréntesis permite romper el 
orden de operación, ya que siempre se 
evalúan primeramente las expresiones 
que aparecen dentro de un paréntesis. 


OTROS LENGUAJES 


OPERACIONES ARITMETICAS FORTRAN (3) 


Algunos ordenadores imponen limita- 
ciones a la hora de efectuar operaciones 
aritméticas entre valores de diferentes ti- 
pos. Resulta conveniente consultar el 
manual correspondiente. 

En los operadores explicados hasta 
ahora, el FORTRAN no se diferencia ape- 
nas de los restantes lenguajes. Lo que le 
proporciona su gran capacidad de cál- 
culo son las funciones de librería. 

El concepto de función en FORTRAN es 
similar al del álgebra y se pueden utilizar 
en expresiones aritméticas, sólo con po- 
ner el nombre de la función seguido de 
los argumentos entre paréntesis. 

Alguna de las funciones de librería más 
conocidas son: 


— Resto de la división: MOD (I1, 12). 
— Raíz cuadrada: SORT (R). 


De todas maneras, es conveniente 
consultar el manual antes de emplear es- 
tas funciones, con el fin de evitar errores. 


'O Expresiones lógicas 


Se denomina expresión lógica a 
un conjunto de constantes, variables, fun- 
ciones lógicas y expresiones de relación 
unidas entre sí mediante operadores ló- 
gicos. 

En FORTRAN se entiende como expre- 
sión de relación al conjunto formado por 
dos expresiones aritméticas comparadas 
entre sí. 


exp-1 OPERADOR exp-2 


Los operadores de relación permitidos 
son: 


.EQ. Igual. «NE. Distinto. 
.LT. Menor. .LE, Menor o igual. 
.GT. Mayor. .GE. Mayor o igual. 


Si el resultado de la comparación es 
cierto la expresión de relación tendrá va- 
lor .TRUE.. 

Las expresiones de relación pueden 
ser unidas mediante operadores lógicos. 


c0 
C MISMO. 


REAL LADO, APOTEM, AREA 
WRITE € 0, 100 > 


READ (-0, 200 > LADO 
200 FORMAT (€ FS.2 > 


sTOP 
“END 


BTENCION A PARTIR DEL LADO DE UN HEXAGONO, EL APOTEMA Y EL AREA DEL 


100 FORMAT ( 1X, “INTRODUZCA EL VALOR DEL LADO”> 


APOTEM = LADO * SORT (3,0) / 2 
AREA = 3 * LADO *. 2 * SQRT (3.0) / 2 
WRITE (€ 0, 300 > APOTEM, AREA 
300 FORMAT (1X, “APOTEMA = *, Fé6.2, /,1X, “AREA = *, F7.2 > 


— .NOT. Niega una expresión. 


— .AND. Arrojará un resultado cierto 
(.TRUE.) sólo cuando las dos expresiones 
lógicas tienen valor .TRUE.. 


— .OR. Para que tenga valor .TRUE. 
basta con que sea cierta una de las dos 
expresiones que relaciona. 

Las expresiones lógicas tienen una 
gran importancia en las sentencias con- 
dicionales que se verán más adelante. 


== Y EDICIONES y SIGLO y CULTURAL y =— 


